home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS047.dsk / GEN LEDGER ACCOUNT#.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  75 lines
  1. 10  REM  PROGRAM DEVELOPED FOR
  2. 20  REM   SMALL BUSINESS CLIENTS
  3. 30  REM  BY FRED V. AMUNDSEN, CPA
  4. 31  REM  1108 S. WESTHAVEN
  5. 32  REM  WHEATON, IL 60187
  6. 33  REM  TEL (312) 668-4833
  7. 34  REM 
  8. 35  REM  NOV. 15, 1980
  9. 40  REM  
  10. 42  REM   MOD. BY LE ROY LARSEN
  11. 44  REM   TO PRINT LIST OF
  12. 46  REM   ACCOUNT NUMBERS FOR
  13. 48  REM   REFERENCE LIST.<CTRL-J>
  14. 50  REM   PURPOSE TO MAKE IT EASY
  15. 55  REM   TO USE GENERAL LEDGER
  16. 60  REM    JUNE 1981<CTRL-J><CTRL-J>
  17. 70  REM  
  18. 75  TEXT : HOME 
  19. 80  REM  
  20. 90  REM  
  21. 100  REM <CTRL-J><CTRL-J>INITIALIZE SUBROUTINE<CTRL-J>
  22. 102  REM <CTRL-J><CTRL-J>CHANGE 102 THROUGH 108        AS APPROPRIATE<CTRL-J>
  23. 104 CLIENT$ = "SMALL BUSINESS, INC."
  24. 106 FYE$ = "6/31/81"
  25. 108  LET F$ = "G/L DATA"
  26. 110  CALL  -936: VTAB 10: PRINT  TAB( 10)CLIENT$: PRINT : PRINT  TAB( 7)"GENERAL LEDGER TRANSACTIONS"
  27. 120  REM 
  28. 130  LET D$ =  CHR$(4): REM  CONTROL-D
  29. 190  DIM A$(35),AA$(7)
  30. 200 A$(1) = "MDSE.-MATERIALS"
  31. 210 A$(2) = "ACCOUNTING":A$(3) = "ADVERTISING":A$(4) = "AUTO EXPENSE"
  32. 220 A$(5) = "BAD DEBTS":A$(6) = "CONTRIBUTIONS":A$(7) = "DEPRECIATION"
  33. 230 A$(8) = "ELECTRICITY":A$(9) = "ENTERTAINMENT":A$(10) = "HEALTH INSUR."
  34. 240 A$(11) = "HEAT":A$(12) = "INSURANCE":A$(13) = "INTEREST"
  35. 250 A$(14) = "LAUNDRY":A$(15) = "LEGAL EXPENSE":A$(16) = "MASTER CHARGE"
  36. 260 A$(17) = "MISC. EXP.":A$(18) = "OFFICE EXP":A$(19) = "POSTAGE"
  37. 270 A$(20) = "RENT":A$(21) = "REPAIRS":A$(22) = "SELL EXP-G.L"
  38. 280 A$(23) = "SELL EXP-R.L.":A$(24) = "SELL EXP-CHRIS":A$(25) = "TAX-SOC SEC"
  39. 290 A$(26) = "TAX-FED INC.":A$(27) = "TAX-OTHER":A$(28) = "TELEPHONE"
  40. 300 A$(29) = "TRASH":A$(30) = "TRAVELING EXP":A$(31) = "WAGES & COMM"
  41. 310 A$(32) = "WATER":A$(33) = "FREIGHT-IN":A$(34) = "FREIGHT-OUT"
  42. 320 A$(35) = "UNITED PARCEL":AA$(1) = "NOTES PAYABLE":AA$(2) = "FEDERAL INC TAX"
  43. 330 AA$(3) = "ACCTS PAYABLE":AA$(4) = "ACCTS RECEIVABLE":AA$(5) = "ACCT REC-OTHER"
  44. 340 AA$(6) = "FIXED ASSETS":AA$(7) = "ACCRUED WAGES"
  45. 345  REM 
  46. 350  DIM E(2,49): REM     EXP 1-35  PER DOME, AND 36-42 ARE BAL SHEET A/C PER DOME
  47. 360  VTAB 16: PRINT "THIS PROGRAM WILL PRINT A LIST OF THE"
  48. 370  PRINT : PRINT "ACCOUNT NUMBERS USED IN GENERAL LEDGER"
  49. 380  PRINT : PRINT "PRINTER IN SLOT 1 OR CHANGE LINE 500"
  50. 390  PRINT : PRINT "< PRESS ANY KEY TO CONTINUE >"
  51. 400  GET Q$
  52. 500  PR# 1
  53. 18000  PRINT "A/C DESCRIPTION";: HTAB 35: PRINT "A/C DESCRIPTION"
  54. 18010  POKE 34,2: REM  FREEZE TOP
  55. 18020  FOR W = 1 TO 34  STEP 2
  56. 18030  PRINT W;"  ";A$(W);: HTAB 35: PRINT W +1;"  ";A$(W +1)
  57. 18040  NEXT W
  58. 18060  PRINT W;"  ";A$(W)
  59. 18070  PRINT 
  60. 18080  HTAB 21: PRINT "AND": PRINT 
  61. 18100  PRINT 
  62. 18160  PRINT "A/C  DESCRIPTION";: HTAB 35: PRINT "A/C  DESCRIPTION"
  63. 18170  PRINT "100  CASH";: HTAB 35: PRINT "200 NOTES PAYABLE"
  64. 18180  PRINT "110  ACCTS RECEIV.";: HTAB 35: PRINT "210 ACCTS PAYABLE"
  65. 18190  PRINT "120  ACCT REC-OTHER";: HTAB 35: PRINT "220 ACCRUED TAXES"
  66. 18200  PRINT "130  INVENTORY";: HTAB 35: PRINT "230 ACCRUED WAGES"
  67. 18210  PRINT "140  EQUIPMENT";: HTAB 35: PRINT "240 CAPITAL STOCK"
  68. 18220  PRINT "150  DEPOSITS";: HTAB 35: PRINT "250 RET. EARNINGS"
  69. 18230  PRINT "160  OTHER ASSETS";: HTAB 35: PRINT "500 SALES"
  70. 18250  PRINT 
  71. 18260  PR# 0
  72. 19000  PRINT 
  73. 19020  END 
  74. 25080  RETURN : REM  SEE OCTOBER, 1980 MICRO MAGAZINE, PAGE 14, ARTICLE BY GARY A. MORRIS FOR DETAILS ON HIS PRINT USING ROUTINE.
  75. 25090  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>'GEN LEDGER ACCOUNT#'<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>